Issue with Mail::Sender : Help needed

--===============1994166116==
Content-Type: multipart/alternative; boundary=0016e644b99e71c39404644ab877

--0016e644b99e71c39404644ab877
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit

Dear All,

I am getting the below error for Mail::Sender utility. Which sends the mail.
Your help will be a great help for me. Error is,
*Can't find string terminator "*END*" anywhere before EOF at Mail_Attach.pl
line 18.
*

Please find the complete code as below,



#!usr/local/bin/perl -w

use Mail::Sender;

$Sender = new Mail::Sender ( {
from => 'mail_id@network.com',
Error => 'Code'
} )
or die " Can't create the sender object
$Mail::Sender::Error \n";
$Sender -> OpenMultipart ( {
to => 'maid_id2@network.com',
cc => 'mail_id4@network.com',
subject => 'Checked out Reminder'
} )
or die " Can't open Multiple connection $Sender ->
{'Error'} \n";
*#$Sender->Body({ msg => <<'*END*' }); # error is here
*$Sender->Body;
*$Sender->SendEnc(<<'*END*'); # if I use this code, then error
is here.*

Hi User,
How are you ?
Long time to send a mail.
Here is a new module Mail::Sender.

*END*

$Sender -> Attach ( {
description => 'File file.txt is checked out',
ctype => 'application/x-zip-encoded',
encoding => 'Base64',
disposition => 'attachment; filename="file.zip"; type="ZIP
archive"',
file => 'file.zip'
})
or die " Can't attach the file : $Sender -> {'Error_Code'} \n";

$Sender -> Close() or die " Can't Send the mail $Sender -> { 'Error' } \n";



Regards,

Mujju

--0016e644b99e71c39404644ab877
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

RE: Issue with Mail::Sender : Help needed

From: activeperl-bounces@listserv.ActiveState.com
[mailto:activeperl-bounces@listserv.ActiveState.com] On Behalf Of Perl
Perl
Sent: 04 March 2009 13:07
To: activeperl@listserv.activestate.com
Subject: Issue with Mail::Sender : Help needed

> Dear All,
>
> I am getting the below error for Mail::Sender utility. Which sends the
mail. Your help will be a great help for > me. Error is,
>
> Can't find string terminator "*END*" anywhere before EOF at
Mail_Attach.pl line 18.
>
>
> Please find the complete code as below,
>
> #!usr/local/bin/perl -w

'use strict;' missing.

>
> use Mail::Sender;
>
> $Sender = new Mail::Sender ( {
> from => 'mail_id@network.com',
> Error => 'Code'
> } )
> or die " Can't create the sender object
$Mail::Sender::Error \n";
> $Sender -> OpenMultipart ( {
> to => 'maid_id2@network.com',
> cc => 'mail_id4@network.com',
> subject => 'Checked out Reminder'
> } )
> or die " Can't open Multiple connection
$Sender -> {'Error'} \n";
> #$Sender->Body({ msg => <<'*END*' }); # error is here
> $Sender->Body;
> $Sender->SendEnc(<<'*END*'); # if I use this code, then
error is here.
>
> Hi User,
> How are you ?
> Long time to send a mail.
> Here is a new module Mail::Sender.
>
> *END*
>
> $Sender -> Attach ( {
> description => 'File file.txt is checked out',
> ctype => 'application/x-zip-encoded',
> encoding => 'Base64',
> disposition => 'attachment; filename="file.zip"; type="ZIP
archive"',
> file => 'file.zip'
> })
> or die " Can't attach the file : $Sender -> {'Error_Code'}
\n";
>
> $Sender -> Close() or die " Can't Send the mail $Sender -> { 'Error' }
\n";

What makes you think your problem is anything to do with Mail::Sender?
(Hint: it isn't.)

It looks like your terminator might have a space in front of it.

There is a FAQ about this, see 'perldoc -q "here doc"'. Also, if you had
tried adding 'use diagnostics;' (one of the first things to try if you
can't understand a perl error or warning message) it would have
explained the error in more detail, including a hint as to where the
problem was.

HTH

--
Brian Raven



------------------------------------------------------------ -----------------------------------------------
This e-mail may contain confidential and/or privileged information. If you are not the intended recipient or have received this e-mail in error, please advise the sender immediately by reply e-mail and delete this message and any attachments without retaining a copy. Any unauthorised copying, disclosure or distribution of the material in this e-mail is strictly forbidden.


_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs